XBRS 


I DENT 


H20 8/5/68 


TCNT 


EQU 


199 


NCMEM 


EQU 


57B 


XSET 


MACRO 


D 




LDA 


= DC1) 




S8RM 


XTMSG 




EN DM 




XOSET 


MACRO 


D 




LDA 


= D( 1) 




SBRM 


XOMSG 




EN DM 






FREEZE 




* EXEC 


ENTRY 


TRANSFER VECTOR 




BRU 


EXE CI 




BRU 


EXECP 




BRU 


OFFTTY 




BRU 


EXECR 



TAPE RECORD LENGTH 



* 8RS TRANSFER VECTOR 



BRU 
BRU 
BRU 
BRU 
BRU 
BRU 
BRU 
BRU 
BRU 
BRU 
BRU 



GFN 

GI FNB 

UABORT 

GO FN A 

60 FN B 

CFILE 

SFDC 

ECDUMP 

ECRECV 

RFDC 

DELETE 



C 15) 
C 16) 
< 17) 
C 18) 
( 19) 
C20) 
C48) 
(95) 
(96) 
(60) 
(80) 



SXTMSG ZRO 


RLVl 




LDX 


COUT 




SXOMSG NOP 


RLVl 




LDB 


= -1 




BRS 


34 




BRR 


RLVl 




* 1 . 10 


CLOSE ALL FILES 


(BRS 17) 


UABORT SBf^M 


BRS17 




BRS 


111 




$BRS17 ZF^O 


RETURN 




BRS 


8 


' 



LDX 


= -5 


SKN 


OPFE, 2 


BRU 


*+4 


BRX 


*+ 1 


BRX 


*-3 


BRR 


RETURN 


BRS 


46 


SBRM 


FLGTH 


BRS 


47 


BRU 


BRS17+2 


* BRS 80 - 


DELETE A FILE. CLOSES ALL OPE 


DELETF SBRM 


BRS43.' BRS 111 


SKA 


=11000008; BRS 111 


BRS 


A3; MRG =78; BRS 44 


SBRM 


BRS 17 


SBRM 


DELFILJ BRS 111; MIiM U8RSRT; 



FILES FIRST 



BRS HI 



* BRS 18 - CONVERT OUTPUT FILE NAME TO INDEX 
GOFNA LDX =-1 SET TO BRS 18 

BRU G18 

* BRS 15-CONVERT INPUT FILE NAME TO INDEX 



GFN 


CLX 




G18 


SBRM 


BRS58 




BRS ' 


11 1 




MIN 


UBRSRT 




BRS 


111 


SBRSSS 


ZRO 


RETURN 




STX 


GO FN FT 




SKG 


= 




LDA 


=100008 




LRSH 


12 




STA 


GOFNFL 




CLA 






LSH 


12 




STA 


60FN1 




SBRM 


RFINA 




BRR 


RETURN 




BRR 


RETURN 




BRU 


GFNl 


BRS 48 A 


SBRM 


FDSCH 




BRU 


GFN 3 




SKN 


GO FN FT 




BRU ■ 


GFN 5 




LDX 


GOFNFL 



= FOR BRS 15,-1 FOR BRS 18 



LIBRARY FILES AND PERIPHERALS 
COULDNT FIND 



SKN GOFNl; BRU * + 2; BRU GFN 5 

XOSET XE3 

CI ^ GO FN 1 

STA GO FN 3 

SKE OKCH 

BRU *+2; BRU GFN 5; SKE XCOMCH 



BRf^ RETURN 

' BRU GFM5 

GFNl STA UNPTR 

ETR =1777778 

STA XWRl 

LDA XOUT 

SKN GOFNFT 

LDA XIiM . 

ADD XWRl 

LDX =-8 

SKE PERT+8j2 

BRX *-l 

CXA 

SKE X0 

BRU '^+2 

BRU GFM6 

LDA FILTB+8*2 

LDX DEVTBL+8*2 

SKB X4 

LDB XCRCH 

ETR =7 

COPY XA>AB, BX 

MIN RETURN ' . 

BRR RETURN 

GFN3 SKN GOFNFT 

BRU GFN3A 

LDA FDEND 

SKG =231 

BRU GFN4 • 

XSET XM54 FILE DIRECTOR/ FULL 

BRR RETURN 

GFN3A LDA GBUF,- SKA =200BJ BRU *+2i BRR RETURN 

EOR =S00B; CLBj RCY 8J STB RLVl 

GLBi ROY 8 J AXG; RSH 8 

COPY XA, BA 

MRG RLVli BRU GFNl 

GFN4 LDX GOFNFL 

SKN GO FN 11 BRU *+2J BRU GFN8 

XOSET XE2 

CIO GOFNl 

STA GO FN 3 

SKE OKCH 





BRU 


*+2; BRU GFN8I SKE X CONCH 




BRR 


RETURN 


GFN3 , 


LDA 


= GBUFJ MUL =3J L SH 23," SUB =1 




STA 


UNPTRJ ADD =9 J STA UNPTR 1 




LDB 


= 77B 


GFN8A 


GCI 


UNPTR; BRR RETURN 




SKM 


= 17B; BRU *+2; BRR^ RETURN 




SKA 


= 100B;' BRU GFN8B 


GFN8C 


SKA 


= 20085 BHU GFN8D; BRU GFN8A 


GFN8B 


CAX; 


ETR =77BJ SKG =408 




BRR 


RETURN; CXA; BRU GFN8C 


GFN3D 


GCI 


UNPTR; BRU GFN8E 



GFNSE 



GFN5 



GFN7 



GFtM6 



SKE =0; 


BRR RET 


Bf?S 46 




LDA 


FDEND 


ADD 


= UED 


STA 


UiMPTR 


LDX 


= -3 


LDB 


GBUFE, 2 


copy 


XA,AX 


STB 


3*2 


EAX 


T>2 


COPY 


AX,XA, B 


BRX 


*-5 


LDX 


UNPTR 


LDA 


X4 


STP 


0,2 


STA 


2,2 


L,DA 


= 7 


ADM 


FDEMD 


BRS 


47 


LDX 


UNPTR 


LDA 


2,2 


LCY 


1 


ETR 


X4 


STA 


XWRl 


LDA 


2,2 


RSH 


17 


ETR 


= 7. 


copy 


AB,XA 


MRG 


XWRl 


LDX 


GO FN 3 


MIN 


RETURN 


BRR 


RETURN 


SKN 


GO FN FT 


8RU 


*+2 


BRR 


RETURN 


LDX 


GOFNFL 


XOSET 


XiM4 


LDA 


-LIB 


LDX 


= 128 


LDB 


= 4006 


BRS 


61 


HLT 




LDX 


= -123 


LDA 


LI BE, 2 


SKE 


X0 


BRU- 


*+2 


BRR 


RETURN 


BRX 


*+l 


SKE 


UNPTR 


BRX 


*-6 


copy 


XA, B 


SKE 


X0 


BRU 


* + 2 


BRR 


RETURN 





LDA 


LI BE, 2 




LCY 


3 




CBX 






RCY 


3 




CX8 






BRU 


GFN7 


PERT 


ASC 


' I AP ' 




ASC 


•lAC 




ASC 


•lET' 




ASC 


♦GAP* 




ASC 


'OAC 




ASC 


•ORP* 




ASC 


•GET' 




ASC 


•OOiN] •■ 


DEVTBL 


DATA 







DATA 


100003B 




DATA 


100004B 




DATA 







DATA 


1000 14B 




DATA 


100013B 




DATA 


100005B 




DATA 


100006B 


FILTB 


DATA 


-1 




DATA 


777700031^ 




DATA 


3 




DATA 


-1 




DATA 


77770003B 




DATA 


77770003B 




DATA 


10003B . 




DATA 


27777B 


XOUT 


ASC 


♦0 .' 


XI N 


ASC 


•I 


SDELIM 


ZRO 


RLVl 




CIO 


GOFiMl 




MIN 


RLVl 




SK E 


OKCH 




SKG 


= 




SK R 


RLVl 




BRR 


RLVl 


$DCHAR3 ZRO . 


RLV2 




SBRM 


DELIM 




BRU 


*- 1 


SCHAR5 


NOP 


RLV2 




LDX 


= -2 




CLB 




CHAR31 


RSH 


8 




SBRM 


DELIM 




BRU 


CHAR4 




BRX 


CHAR31 



WAS PAPER TAPE liMPUT 100001B 



WAS PAPER TAPE OUTPUT 100002B 





RSH 


8 






MIN 


RL \}2 






SBRM 


DELIM 






BRU 


CHAR4 






SKE 


XCOMCHJ BRU *-3 




CHAR4 


XAB 








BRR 


RLV2 




SCHAR3 


ZRO 


RLV2 






SBRM 


DELIM 






BRU 


CRA 






SKE 


QUOTCH 






BRU 


eHAR31-2 






BRU 


QT 




SRFIiMA 


ZRO 


RLV4 






CLA 


- 






ld;< 


= -3 






STA 


GBUFE, 2 






BRX 


*-l 






CIO 


GO FN 1 






SKE 


XCRCH 






BRU 


*+2 






BRR 


RL\}A 






SKE 


XMBCH 






BRU 


*+3 






CIO 


GO FN 1 






BRU 


RFINA+5 






SKG , 


X0 






BRU 


RFINAH-5 






STA 


TLVl 






SBRiM 


FI DEL 






BRR 


RLV4 


MAG TAPE 




BRU 


RFINA4 


LIBRARy 




LDA 


= 3 


DISC 




STA 


TLVll 




RFINAl 


CIO 


GO FN 1 






SKE 


XCRCH 






BRU 


*+2 






BRR 


RLV4 






SKE 


X SL SCH 






BRU 


RFINA3 






LDA 


TLVll 






SKA 


= 8 






BRR 


RL\;4 




RFl!MA2 


LDX 


= 200B 






M I N 


TLVll 






SBRM 


STNAM, 






BRU 


*+ 1 






NOP 


. 


USED TO 




MIN 


RLV4 


DISC 




MIiM 


RLV4 


LIBRARY 




MIN 


RLV4 


MAG TAPE 




BRR 


RLV4 


ERROR 


RFINA3 


ETR 


= 177B 





BE CIO GOFNl 



CAX 




SBRM 


STNAM 


BRU 


, RFINAl 


- CIO 


GOFiMl 


SKE 


XSLSCH 


BRR 


RLV4 


BRU 


RFINA2 


RFINA4 SBRM 


CKAR5 


BRR 


RLV4 


BRU 


RFINA3-3 


STNAM ZRO 


RLVl 


LDA 


TLVll 


MUL 


=125252538 


EOR 


= -1 


STA 


XL \/2 


LSH 


5 


ETR 


= 30B 


COPY 


AX,XA, B 


LSH 


0*2 


LDX 


TL\J2 


ADM 


GBUFE, 2 


SKR 


TLVll 


BRR 


RLVl 


MIN 


RLVl 


BRR 


RLVl 


FIDEL ZRO 


RLVl 


SKE 


XSLSCH 


SKE 


XPRMCH 


MIN 


RLVl 


' MIN 


RLVl 


SK E 


XSLSCH 


SKR 


RLVl , 


BRR 


RLVl 



* SEARCH FD FOR NAME 

* IF SKIP* RETURNS POINTER IN A 



SFDSCH 


ZRO 


RLVl 




LDA 


= UFD 




LDB 


FDEND 


SHCSDF 


NOP 


RLVl 




ADD 


=200000068 




STA 


UNPTR 




CBA ; 


ADD UNPTR 




STA 


UNPTR 1 


FDSl 


LDA 


UNPTR 1 




SKG 


UNPTR 




BRR 


RLVl 




LDX 


=-3 




LDA* 


UNPTR 




SKE 


GBUFE, 2 




BRU 


FD S2 



FDS2 



BRX 


*-3 


MIN 


RL V 1 


LDA 


UNPTR 


SUB 


=20000006B 


STA 


UNPTR 


BRR 


RLVl 


LDA 


= 7 


ADM 


UNPTR 


BRU 


FDSl 



BRS 19 - OPEN FILE FOR OUTPUT 



GOFNB SBRM 


BRS19 


BRS 


11 1 


MIiM 


UBRSRT 


BRS 


111 


$BRS19 ZRO • 


RETURN 


STA 


UA 


STB 


UB 


STX 


UX 


SBRM 


GFI 


BRU 


GOFL 


BRR 


RETURN 


SKN 


1*2 


BRU 


*+2 


BRR 


RETURiM 


S<N 


2, 2 


BRR 


RETURN 


LDA 


UX 


SKG ' 


= 4 


SKG 


X0 


BRR- 


RETURN 


SKN 


UA 


BRU 


BRS19B 


LDA 


1>2 


SKE 


X0 


BRU 


BRS19G 


LDA 


X2 


MRG 


2*2 


8RS19A ETR 


X6 


RCY 


17 


ADD 


UX 


LCY 


17 


STA 


GO FN 3 


LRSK 


22 


ADD 


= 7 


LDX 


1*2 


COPY 


AX*XA 


BRS 


1 


BRR 


RETURN 


BRS 


46 



LIBRARY AND PERIPHERALS 
ERFiJOR 



READ ONLY FILE 
TAPE FILE 



FILE TYPE WRONG 

DOES USER WANT RANDOM FILE 



STA GOFNFL 

COPY XA 

LDX UA 

LDB GO FN 3 

STP 1,2 

LDB GOFNFL 

STB GOFNFT 

BRU BRS16A 

BRS19C LDA 2,2 

SKA X2 

BRU BRS19A 

BRR RETURN 

8RS19B LDA 2,2 

SKA X2 

BRR RETURN 

BRU BRS19A 

GOFL SKA =10000008 

BRR RETURN LIBRARY 

LDX =-8 

SKE DEVTBL+8,2 

BRX *-i 

CXA 

•SKG . a-j 

SKG ,=-6 

BRR RETURN -, ILLEGAL DEVICE 

BRU GOFLl 

ADD =3 

SKE =1 

BRU GOFL 4 

LDA UX 

SKE =3 

BRR RETURN 

LDB =1 

COPY AX,BA, 8 

GOFL 4 MIN RETURN 

BRR RETURN 

GOFLl LDB X2 

SKB CPARW 

BRU *+2 

BRR RETURN 

SKG =-5 

BRU ' G0FL2 

LDA UX 

SKE , =3 

BRR RETURN 

LDA UA 

ETR =377778 

COPY AX 

8RS 1 

BRR RETURN 

GOFL 3 LDX UX 

BRU GOFL 4 

G0FL2 LDA UX 



CFI 



SKG 


= 4 


SKG 


X0 


BRR 


RETURN 


LDX 


= 2 


BRS 


1 


BRR 


RETURN 


STA 


GO FN PL 


LDA 


UX 


WI 


GOFNFL 


LDA 


GOFNFL 


BRU 


GO FL 3 


FD (A) 


INDEX 


ZRO 


RLVl 


SKA 


= 1 1000006 


BRR 


RLVl 


MIN 


RLVl 


ETR 


=377778 


ADD 


= 1 


SUB 


= UFD 


SKG 


FDEND 


BRU 


*+2 


BRR 


RLMl 


SUB 


= 1 


RSH 


23 


DIV 


= 7 


SKB 


= -1 


BRR 


RLVl 


LDA 


UA 


ETR 


=37777B 


CLX 




STX 


GO FN 2 


LDX 


= -6 


SKE 


OPFE, 2 


BRU 


*+2 


BRR 


RLVl 


SKM 


0PFE^2 


BRU 


*+2 


STX 


GO FN 2 


BRX 


*+ 1 


BRX 


*- 7 


SKN 


GO FN 2 


BRR 


RLVl 


CAX 




MIN 


RLVl 


BRR 


RLVl 



FILE OVERFLOW 



*BRS 16 




GIFNB SBRM 


BRS16 


BRS 


1 1 I 


MIN 


UBRSRT 


BRS 


11 1 



$BRS16 ZRO 


RETURN 


. STA 


UA 


SBRM 


CFI 


8RU 


GIFL 


BRR 


RETURN 


SKM 


2,2 


BRR 


RETURN 


LDA 


1,2 


ETR 


=377777778 


SK G 


X0 


BRR 


RETURN 


LDA 


2., 2 


STA 


GO FN FT 


RSH 


. 21 


ETR 


= 2 


ADD 


= 8 


GAB 




LDA 


1,2 


ETR 


= 2>ininiB 


CBX 




BRS 


1 


BRR 


RETURN 


BRS 


46 


STA 


GOFNFL 


COPY 


XA,AB 


LDX- 


UA 


XiMA 


i;2 


ETR 


X4 


ADM 


1,2 


8RS16A COPY 


XA 


LDX 


GO FN 2 


ETR 


=377778 


STP 


0PFE,2 


CAX 




LDA 


2,2 


RSH 


17 


ETR 


= 7 


CAB 




LDA 


0,2 


ETR 


=377777778 


LDX 


GO FN FL 


COPY 


XA, AX 


SKiM 


GO FN FT 


COPY 


BX,XB 


GIFLl BRS 


47 


iMIiv) 


RETURN 


BRR 


RETURN 


GIFL SKA 


=10000006 


BRU 


BRS16B 


LDX 


= -8 


SKE 


DEVTBL+8,2 


BRX 


*- 1 


CXA 





LIBRARY AND PERIPHERALS 
ERROR. 

TAPE FILES 



SKG 


= -7 


BRU 


*+6 


SK E 


= -6 


8RR 


RETURN 


COPY 


A,X 


LDB 


= 3 


BRU 


GIFLl 


LDB 


X2 


SKB 


CPARW 


BRU 


*+2 


3RR 


RETURN 


SKE 


= -7 


BRU 


*+7 


■ LDX 


= 3 


BRS 


1 


BRR 


RETURN 


LDB 


= 3 


CLX 




BRU 


GIFLl 


LDX 


= 1 


BRS 


1 


BRR 


RETURN 


STA 


GOFNFL 


, WIO 


GOFNFL 


CAB 




LDA 


GOFNFL 


BRU 


*-9 


BRS16B CLB 




LCY 


3 


STB 


GO FN FT 


LSH 


3 


RGY 


6 


LDX 


= 8 


BRS 


1 


BRR 


RETURN 


LDB 


GO FN FT 


CLX 




BRU 


GIFLl 



BRS 20 



CFILE 


SBRM 


BRS20 




BRS 


1 11 


SBRS20 


ZRO 


RETURN 




ETR 


=377778 



SKE MAGT 



BRU 


CFILXl 


BRR 


RETURN 


CFILXl LDX 


= - 5 


SKE 


0PFE:.2 


BRU 


*+2 


BRU 


*+5 


BRX 


*+l 


BRX 


*-4 


BRS 


2,..,,,,.. .■■ 


BRR 


RET URM ' 


BRS 


46 


BRS 


2 


SBRM 


FLGTH 


BRS 


47 


BRR 


RETURN 


FLGTH ZRO 


RTURNT 


STX 


GOFNl 


EAX 


-1*2 


LDX 


0PFE*2 


STX 


GO FN 2 


LDA 


1>2 


ETR 


=377777778 


LDX 


= 8 


BRS 


1 


BRU 


FLGTH 1 


CLX 




BRS 


1 1 3 


BRS 


2 


CXA 




LDX 


60 FN 2 


XMA 


0*2 


ETR 


X4 


ADM 


0*2 


FLGTH 1 LDX 


GO FiN 1 


STX 


0PFE*2 


EAX' 


- 1 * 2 


STX 


0PFE,2 


BRR 


RTURNl 



BRS 9 5 (DUMP BRS) 



ECDUMP 


SBRM 


BRS9 5 




BRS 


1 1 1 




MIN 


UBRSRT 




BRS 


1 1 1 


SBRS9 5 


ZRO 


RETURN 




STA 


OUTF.IL 




LDA 


SYSVER 




WIO 


QUTFIL 



LDA 


SY STL 


SKE =- 1 


J SUB =SUBTB1 


WIO 


OUTFIL 


ECDi^P2 LDX 


JOB 


LDA 


PMAj 2 


LRSH 


9 


' ADD 


PiMA*2 


LRSH 


6 


ETR 


= 778 


WI 


OUTFIL 


LDX 


=PRGRL 


LDA 


= 4 


BIO 


OUTFIL 


BRU 


ECDMP3 


L DA 


=!MCM,EM 


ECDMP4 ADD 


= 1 


SK G 


= 77B 


BRU 


*+ 3 


MIiM 


RETURN 


BRR 


RETURN 


BRS 39 5 


BRU ECDMP4 


WIO 


OUTFIL 


STA 


ECDMP6 


BRS 


43 


LCY 


6 


ETR 


=777777000 


MRG 


EGDMP6 


RCY 


6 


BRS 


44 


LDA 


= 40008 


LDX 


= 200008, 


BIO 


OUTFIL 


BRU 


EGDMP3 


LDA 


EGDMP6 


BRU 


ECDMP4 


EGDMP3 XSET 


XEl 


BRR 


RETURN 


* BRS 96 


CREGOVER BRS 


EGRECV SBRM 


BRS9 6 


BRS 


11 1 


MIN 


UBRSRT 


BRS 


1 1 1 


SBRS9 6 ZRO 


RETURN 


STA 


INFIL 



WI 


I N FI L 


SK E 


SYSVER 


BRU 


ECRV4 


WI 


INFIL 


SKG ■■ 


=NSYS4i SKG =-2J' 


SKE ■■ 


=-i; ADD =SUBT81 


STA 


SY STL 


ECRV2 LDA 


=NCMEM 


ECRVa ADD 


= 1 


SKG 


= 77B 


BRU 


*+2 


BRU 


*+3 


BBS 


121 


BRU 


EGR\/3 


LDX 


Job 


LDA 


PM A^ 2 


BRS 


57 


ETR 


=700077778 


XMA 


PMA,2 


RSH 


6 


ETR 


= 77B 


STA 


ECR\/6 


WIO 


liMFIL 


SUB 


ECRV6 


SKG 


= -1 


CLA 




CLB 




LCY 


15 


ADM 


PMA>2 


LDA 


= 4 


Lf3X 


=PRGRL 


BIO 


INFIL 


BRU 


EGRV7 


ECRV5 WIO 


liMFIL 


SKE 


TERM WD 


BRU 


*+2 


BRU 


ECRV8 


SKG 


= 778j SKG =NCMEMj 


STA 


ECRV6 


BRS 


120 


BRS 


43 


Lcy 


6 


ETR 


=777777008 


MRG 


ECR\;6 


Rcy 


6 


BRS 


44 


LDA 


=4000B 


LDX 


=200006 



SUB =1447 68 



BRU .ECR\J7 



ECRVS 



ECRV4 



ECRV7 



BIO 


INFIL 


BRU 


ECRV7 


BRU 


ECRV5 


BRS 


43 


CLB 




BRS 


AA 


MIN 


RETURN 


BRR 


RETURsM 


XSET 


XM13 


BRR 


RETUr^N 


XSET 


Xei 


BRR 


RETURiM 



BRS 48 SET UFD STATUSES 



SFDC SBRM 


BRS4S 


BRS 


1 U 


MIN 


UBRSRT 


BRS 


111 


$BRS43 ZRO 


RETURiM 


STP 


GBUF 


CXA 




LDX 


= 2 


STA 


GBUF^2 


STX 


GOFMFT 


STX 


GO FN FL 


BRU 


BRS4SA 



BRS 60 READ UFD CTRL WORDS 



RFDG 



BRS60 



SBRM 


8RS60 


BRS 


111 


MIN 


UBRSRT 


BRS 


11 1 


ZRO 


RETURNJ 


STP 


GBUF 


CXA 




LDX 


= 2 


STA 


GBUF:, 2 


STX 


GOFNFL 


LDA 


= -1 


STA 


GO FN FT 


STA 


GO FN 1 


BRU 


BRS48A 


UN I V E R SAL CO N S T AN T S 



AND WORKING SPACE FOR EXEC 



SXGOMCH 


[ ZRO 


MB 


SX SL SCH 


1 ZRO 


17B 


SXPRMCH 


[ ZRO 


7 


SXCRCH 


ZRO 


15SB 


$XM8CH 


ZRO 


135B 


XL INF 


ZRO 


1528 


SDKCH 


DATA 


168 


XEl 


ASC 


' ? / ' 


SXM6 


ASC 


•SFILE TYPE WRONGS/' 


XE2 


ASC 


' NEW FILE/ • 


XE3 


ASC 


' OLD FILE/' 


XM4 


ASC 


• CLIBRARY) /' 


XM13 


ASC 


'SNOT COMPATIBLE /' 


XM54 


ASC 


•SFD FULLS/' 


SSYSVER DATA 


1 1 IB 




END 





